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I.  Introduction 


With  the  advent  of  VHDL  [1],  accurate  documentation  of  hardware  designs  is  a  practical  re¬ 
ality.  In  the  past,  schematics  were  typically  used  for  documentation  of  hardware  designs.  However, 
these  schematics  would  usually  become  obsolete  as  the  hardware  design  was  being  constructed. 
Deviations  in  the  hardware  design  would  sometimes  not  be  reflected  in  the  schematics.  For  design 
groups,  failure  to  update  schematics  could  lead  to  different  parts  of  a  hardware  design  becoming 
incompatible. 

A  system  to  ensure  compliance  of  hardware  with  its  VHDL  documentation  is  presented  in 
this  paper.  The  system,  vhdlSges,  is  meant  to  help  guide  the  development  of  hardware  by  pointing 
out  where  hardware  deviates  from  its  VHDL  documentation.  A  tool  called  vhdLparser (c)1  [2]  is 
used  to  parse  the  VHDL  description  into  a  Prolog-type  intermediate  form  vhdl2ges  translates 
the  structural  VHDL  description  from  this  Prolog-type  intermediate  form  to  extraction  rules  for 
a  system  called  a  generalized  extraction  system  (GES)  [3].  A  “customized”  GES  is  consu acted 
that  checks  a  netlist  derived  from  a  layout  description  for  deviations  from  the  components  and 
interconnections  specified  in  the  structural  VHDL  documentation.  The  end  result  is  an  accurate 
VHDL  document  representing  the  constructed  hardware.  Furthermore,  vhdlSges  makes  the  VHDL 
documentation  the  driving  element  in  the  hardware  development. 

The  form  of  extraction  performed  by  GES  entails  identifying  higher  level  components  con¬ 
structed  from  existing  lower  level  components.  Extraction  in  GES  is  a  three-step  process  performed 
iteratively  on  a  component  netlist.  The  first  step  is  to  find  a  group  of  related  compon-  its  based 
on  the  component  types  and  interconnections  between  them.  Next,  the  identified  components  are 
eliminated  from  the  component  netlist.  Finally,  a  new  higher-level  component  (constructed  from 
the  identified  components)  is  added  to  the  component  netlist.  In  its  simplest  form,  the  extraction 
process  may  be  viewed  as  identifying  digital  logic  gates  formed  from  a  transistor  netlist.  The  next 
level  might  involve  identification  of  half  adders  from  a  component  netlist  of  digital  logic  gates.  The 
extraction  process  in  GES  may  be  started  at  any  level  to  produce  a  higher  and  more  abstract  level 
of  representation. 

Both  vhdl2ges  and  GES  have  been  tested  using  Quintus  Prologs  under  Ultrix3.  Every  attempt 
has  been  made  to  adhere  to  Prolog  standards  specified  by  Clocksin  and  Mellish  [4].  GES  was 
originally  developed  to  extract  VLSI  custom  layout  designs  generated  in  magic  using  the  Berkeley 
Distribution  of  Design  Tools  [5],  Transistor  netlists  were  generated  from  magic  using  either  extract 
or  ctf *.  Netlists  from  other  computer  aided  design  (CAD)  tools  may  be  input  into  GES  after 
processing  by  an  input  filter  which  produces  the  netlist  format  required  by  GES. 

The  purpose  of  this  report  is  to  describe  the  acceptable  VHDL  code  for  vhdlSges,  to  describe 
the  Prolog  routines  in  vhdlSges,  and  to  describe  the  changes  made  to  GES.  The  type  of  structural 
VHDL  models  that  are  accepted  may  have  any  number  of  hierarchical  levels.  Enhancements  to 
GES  are  discussed  in  Section  2.  The  style  of  structural  VHDL  that  is  used  by  vhdlSges  is  described 
in  Section  3.  Some  examples  of  how  structural  VHDL  maps  to  GES  are  also  described  in  Section 
3.  Section  4  is  a  description  of  the  Prolog  program  that  accepts  the  VHDL  intermediate  form  from 
vhdLparser. 


'Copyright  1990  by  the  Microelectronics  Center  of  North  Carolina 
2Quintus  and  Quintus  Prolog  are  trademarks  of  Quintus  Computer  Systems,  Inc. 
3  Ultrix  is  a  trademark  of  Digital  Equipment  Corporation 
1  CALTECH  Intermediate  Format  (CIF) 
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II.  Changes  to  GES  and  VHDL.PARSER 


2.1  Changes  to  GES 

This  section  describes  the  changes  made  to  GES.  These  changes  were  necessary  to  help  make 
extraction  rule  generation  easier  and  to  correct  shortfalls  of  the  original  GES  svstem  described  in 

[3]- 

Previously,  the  format  for  a  GES  [3]  extraction  rule  was  reported  as  the  following. 
head 

matchxng.goal\ , 


matching.goaln, 

not_connected([  internaLargumentJist  ]), 
retract.goali , 


retract.goal„ , 

asserta(Aead(  argument  Jist)) , 
fail. 
head. 

The  following  is  the  format  for  the  new  extraction  rule. 
head 

matching. goali, 


matching.goaln , 
unique_component([  XYs  ]), 
not_connected([  internaLargumentJist  ], 
extemal.argumeni.list  ]), 
retract.goali, 


retract.goaln , 

a8sertBi(head(argvment-list)) , 
fail. 
head. 
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The  extraction  rule  is  based  upon  six  procedural  steps: 


1.  Identify  the  component  from  its  lower-level  components. 

2.  Ensure  that  the  identified  lower-level  components  are  unique. 

3.  Check  that  the  values  of  internal  nodes  do  not  match  other  nodes. 

4.  Delete  the  lower-level  components  from  the  component  netlist. 

5.  Add  the  newly  found  component  to  the  component  netlist. 

6.  Check  to  see  if  there  are  more  lower-level  components. 

Step  1  must  occur  first,  step  two  must  occur  second,  step  three  must  occur  third,  and  step  6  must 
occur  last;  however,  the  order  of  steps  4  and  5  is  not  important.  Within  the  extraction  rule  are  two 
Prolog  routines  that  require  further  explanation. 

The  rule  unique_component/l  is  true  iff  all  of  the  components  corresponding  to  all  of 
the  goals,  matching  .goal\  through  matching. goaln,  have  unique  (X,Y)  locations.  In  Prolog, 
unique_component/l  is  expressed  as  the  following. 

unique_component(  □ )  !. 

unique.component ( [XYl XYs] ) 

not_member(XY,XYs) .unique.component (XYs) . 

not  ..member  (  _ ,  []  )  !. 

not.member (Node, [Head I Tail]) 

Node  \==  Head,not_member(Node,Tail) . 

The  Prolog  rule  not jmember/2  is  used  to  ensure  that  no  two  (X,Y)  coordinate  locations  arc 
equal. 

The  Prolog  rule  not  .connected/ 2  was  modified  from  the  original  GES.  The  following  is  the 
new  not_connected/2. 

not_connected( [] ,_)  !. 

not_connected([NodelTail] .External) 

not .member (Node, Tail) .not.member (Node , External) , 
not_connected(Tail .External) . 

The  rule  not_connected/2  is  true  iff  none  of  the  internal  nodes  are  interconnected  and  none  of 
the  internal  nodes  are  connected  to  external  nodes.  The  rule  not_connected/2  calls  upon  the 
same  not  jmember/2  Prolog  rule  as  uniquejcomponent/1. 


2.2  Changes  to  VHDL. PARSER 

There  were  two  changes  made  to  vhdl.parser.  The  changes  concerned  VHDL  file  naming 
conventions  and  case  sensitivity  of  the  letters  used  in  a  VIIDL  description. 

The  Prolog  routine  file_path/2  was  originally  the  following. 

f ile.path(Narae.File)  concatenate([’data/’ .Name, ’ . vhdl’] .File) . 

f  ji  e_pat.h(Name,File)  conrat.»nate( [Name vhdl ’]  .File) 
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file_path/2  was  changed  to  the  following 

f ile_path(Same,File)  concatenate( [ 'data/ ’ .Name, ' .vhdl'] .File) . 
f ile_path(Iame,File)  concatenate( [Name, ’. vhdl ’] .File) . 

f ile_path(fama,File)  concatenate ( [Name, ' .vhd’] .File) . 

The  change  allowed  for  VHDL  file  extensions  of  .vhd  as  well  as  .vhdl. 

The  second  change  made  to  vhdLparser  causes  all  upper  and  lower  case  letters  read  in  to  be 
forced  to  lower  case.  This  change  was  necessary  since  VHDL  is  case  insensitive  and  Prolog  is  case 
sensitive.  The  Prolog  routines  getmyO/1  and  getmy/1  were  substituted  for  get()/l  and  got/1 
The  Prolog  code  for  the  new  routines  follows. 

getmyO(Char) 
getO(Charllp)  , 
to_lower(CharUp,Char) . 

getmy(Char) 
gat(CharUp) , 
to_low«r(CharUp,Char) . 

Both  Prolog  routines  call  on  a  Quintus  Prolog  library  routine  called  toJower/2  [<>]. 
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III.  Converting  VHDL  Descriptions  to  GES 


This  section  describes  the  acceptable  VHDL  syntax  for  a  VHDL  description  and  the  form  of 
the  GES  code  produced.  Since  the  purpose  of  vhdlSges  is  to  search  for  components  and  intercon¬ 
nections,  VHDL-constructs  that  do  not  provide  information  to  assist  in  this  search  are  ignored. 


3.1  Acceptable  VHDL  Syntax 

This  section  details  the  VHDL  language  constructs  accepted  by  vhdlSges.  Several  examples  of 
acceptable  structural  VHDL  models  are  provided.  The  VHDL  language  constructs  are  taken  from 
the  Syntax  Summary  of  [2].  At  a  minimum,  the  VHDL  description  must  contain  the  following. 

entity  identifier  is 
/ormaLport-clause 
end  entiij/_simplemame  ; 

architecture  identifier  of  entity-name  is 
component  identifier 
/ocaLport.clause 
end  component; 
begin 

instantiation-label  : 

compoue nLname  port_map_aspect  , 
end  arcAitectune_simple_name  ; 

Below  is  an  example  of  a  VHDL  description  conforming  to  the  above  description 


entity  comp  is 

port  (A  :  in  bit); 
end  comp; 

architecture  structure  of  comp  is 
component  sub_comp 
port  (A  :  in  bit) ; 
end  component; 
begin 

sub_compOO  ;  sub_comp  port  map  (A); 
end  structure; 


Additional  VHDL  language  constructs  supported  are  shown  below. 

signal  identifier Jist  .  subtype-indication, 
alias  identifier  :  subtype-indication  is  name; 

All  other  VHDL  language  constructs  are  ignored. 
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8.2  Examples  of  Acceptable  VHDL  Descriptions 

Some  further  examples  of  acceptable  structural  VHDL  models  are  shown  l.elow 


entity  stage2  is 
port  ( 

X_vector  :  in  bit_vector(3  downto  0); 

S_vector  :  in  bit_vector(2  downto  0); 

Y  :  in  bit; 

Result  :  out  bit_vector(4  downto  0) 

); 

end  stage2; 

architecture  stage2  of  stage2  is 

component  stage 1 
port  ( 

X_vector  :  in  bit_vector(3  downto  0); 
Y  :  in  bit; 

Result  :  out  bit_vector(3  downto  0) 

); 

end  component ; 

component  full.adder 
port  ( 

X,  Y,  Cin:  in  bit; 

Sum,  Cout:  out  bit 

); 

end  component; 

component  half.adder 
port  ( 

X,  Y  :  in  bit; 

Sum,  Cbar:  out  bit 

); 

end  component ; 


alias 

S_0 

bit 

is 

S.vector (0) ; 

alias 

S_1 

bit 

is 

S_vector(l) ; 

alias 

S_2 

bit 

is 

S_vector (2) ; 

alias 

R_0 

bit 

is 

Result(0) ; 

alias 

R_1 

bit 

is 

Result(l) ; 

alias 

R_2 

bit 

is 

Result (2) ; 

alias 

R_3 

bit 

is 

Result (3)  ; 

alias 

R_4 

bit 

is 

Result(4)  ; 

signal  A 

bit 

.vector  (3  downto  0)  ; 

alias 

A.O 

bit 

is 

A(0)  ; 

alias 

A.l 

bit 

is 

A  (  1 )  ; 

alias 

A_2 

bit 

is 

A(2); 
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alias  A_3  :  bit  is  A(3); 

signal  HA1  :  bit; 

signal  C_2,C_3  :  bit; 

begin 

CO:  STAGE1  port  map  (X_vector,  Y,  A); 

COO:  half_adder  port  map  (S_0,A_0,R_0,HA1) ; 

C01:  full_adder  port  map  (S_l ,A_1 ,HA1 ,R_1 ,C_2) ; 
C02:  full_adder  port  map  (S_2,A_2,C_2,R_2,C_3) ; 
C03:  half .adder  port  map  (C_3,A_3,R_3,R_4) ; 
end  stage2; 


entity  mult  is 
port  ( 

X_vector  :  in  bit_vector(3  downto  0); 

Y_vector  :  in  bit_vector(3  downto  0); 

Result  :  out  bit_vector(7  downto  0)); 
end  mult; 

architecture  mult  of  mult  is 

component  stage 1 
port  ( 

X.vector  :  in  bit_vector(3  downto  0); 

Y  :  in  bit; 

Result  :  out  bit_vector(3  downto  0) 

); 

end  component; 

component  stage2 
port  ( 

X_vector  :  in  bit_vector(3  downto  0) ; 
S.vector  :  in  bit_vector(2  downto  0) ; 

Y  :  in  bit; 

Result  :  out  bit_vector(4  downto  0) 

); 

end  component; 

component  stage3 
port  ( 

X_vector  :  in  bit_/ector(3  downto  0) ; 
S_vector  :  in  bit_vector(3  downto  0) ; 

Y  :  in  bit; 

Result  :  out  bit  vector(4  downto  0) 

); 

end  component; 

signal  Sl_2  :  bit_vector(2  downto  0); 
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signal  S2_3 
signal  S3_4 


:  bit_vector(3  downto  0) ; 
:  bit_vector(3  downto  0) ; 


bsgin 

CO:  stagsl  port  map(X_vsctor  =>  X.vector, 

Y  =>  Y_vector(0), 

Result(3  downto  l)  =>  Si_2, 
Result(O)  =>  Result(O)); 

Cl:  stag«2  port  map(X_vector  =✓  X_vector, 

S_vector  =>  Sl_2, 

Y  =>  Y_vector(l), 

Rssult(4  downto  l)  =>  S2_3, 
Result(O)  =>  Result(l)); 

C2:  stage3  port  map(X_vector  =>  X_vectox~, 

S.vector  =>  S2_3, 

Y  =>  Y_vector(2), 

Result(4  downto  l)  =>  S3_4, 
Result(O)  =>  Result(2)); 

C3:  stage3  port  map(X_vector  =>  X_vector, 

S_vector  =>  S3_4, 

Y  =>  Y_vector(3), 

Result  =>  Result(7  downto  3)); 


end  suit; 


Only  the  VHDL  information  pertaining  to  components  and  interconnections  is  considered.  As 
vhdl2ges  is  presently  constructed,  only  one  entity /architecture  pair  for  a  structural  VHDL  model 
is  allowed  within  a  file. 
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IV.  The  VHDL2GES  System 


4-1  The  VHDL2GFS  Prolog  Program 

The  following  is  an  explanation  of  the  Prolog  routines  used  to  translate  the  VHDL  interme¬ 
diate  form  created  by  vhdLparser  into  extraction  rules  used  by  GES.  Some  familiarity  with  Prolog 
is  assumed.  vhd!2ges  works  strictly  with  the  intermediate  form,  therefore  an  assumption  in  using 
this  tool  is  that  the  VHDL  description  to  be  converted  has  already  been  parsed  by  vhdLparser. 

The  Prolog  routine  vhdl2ges/l  is  the  main  driver  of  vhdl2ges. 

vhdl2ges(File)  : - 
vhdl_read(File) , 
vhdl2ges_sub, 
halt . 

The  Prolog  routine  vhdl_read/l  is  part  of  the  vhdLparser  system.  The  name  of  the  VHDL  file 
to  be  parsed  is  passed  to  vhdl_read/l.  Afterwards,  vhdl2ges_sub/0  is  called  to  work  on  the 
intermediate  form  generated  by  vhdLparser. 

vhdl2ges_sub/0  calls  a  series  of  Prolog  routines. 

vhdl2ges_sub 

vhdl2ges_comp_ent , 
vhdl2ges_comp_arch, 
vhdl2ges_gen_rule , 
vhdl2gea_gen_f ind_anomaly , 
vhdl2ges_gen_rule_name , 
vhdl2ges_gen_listing, 
nl. 


Some  utilities  common  to  Prolog  routines  in  vhdl2ges  are  shown  below. 
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xxxxxmmmmxmmmmxmmxxmmxxmmxxmmmmnm 

%  vhdl2ges_assert_comp_vector_list(pl ,p2 ,p3,p4,p5) . 

%  This  routine  converts  a  list  of  bit.vector  names  (implied  equal  ranges), 

7%  to  a  list  of  element  names.  A  table  is  built  in  memory  called 

%  vhdl2ges_comp_vector_table .  Each  record  of  the  table  contains  three 
7,  fields  denoting  the  name  of  the  component,  the  name  of  the  vector, 

'/.  and  a  list  of  its  expanded  elements. 

*/. 

*/,  Parameters : 


•/. 

•/. 

•/. 

•/. 

*/. 

*/. 

*/. 

*/. 

•/. 

*/. 


pi :  component  name 

p2:  list  of  bit.vector  names 

p3 :  high  index 

p4 :  Ion  index 

p5:  returned  element  list. 

Calls: 

append/3 , vhdl2ges_expand_name/4 , assert/ 1 . 


•/.  Example : 

*/. 


7.  I  ?-  vhdl2ges_assert_comp_vector_list(stagel , [a,b,c] ,8,4, X) . 

•/. 

7%  X  =  [a_8,a_7,a_6,a_5,a_4,b_8,b_7,b_6,b_5,b_4,c_8,c_7,c  6,c_5,c  4]  ; 

’/. 


7.  no 

%  I  ?-  listing(vhdl2ges_comp_vector_table) . 

V. 


%  vhdl2ge8_comp_vector_table(stagel,a, [a_8 , a_7 , a_6 , a_5 , a_4] ) . 
7,  vhdl2ges_comp_vector_table(stagel ,b, [b_8,b_7,b_6,b_5,b_4] ) . 
*/.  vhdl2ges_comp_vector_table(stagel  ,c,  [c_8,c_7,c_6,c_5,c_4] ) . 


vhdl2gea_assert_comp_vector_list(_,  !. 

vhdl2ge8_assert_comp_vector_list(Comp, [Head I VarList]  .High, Low, VarlntList) 

i 


vhdl2gee_expand_name (Head , H igh , Lon , N  ewList ) , 
assert (vhdl2ges_comp_vector_table (Comp , Head , N ewList ) ) , 
vhdl2ges_asaert_comp_vector_li8t(Comp, VarList , High, Low, IntList) , 
append(IeuList .IntList , VarlntList) . 
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X 

•/. 

X 

X 

X 

X 

•/. 

•/. 

•/. 

•/. 

•/. 

•/. 

•/. 

•/. 

•/. 

•/. 

x 

•/. 

•/. 

•/. 

x 

x 

X 

X 

X 

X 

X 

X 


vhdl2ges_assert_vector_list(pl ,p2,p3,p4) . 

This  routine  converts  a  list  of  bit.vector  names  (implied  equal  ranges), 
to  a  list  of  element  names.  A  table  is  built  in  memory  called 
vhdl2ges_vector_table .  Each  record  of  the  table  contains  two 
fields  denoting  the  name  of  the  vector  and  a  list  of  its  expanded 
elements . 

Parameters : 

pi:  list  of  bit.vector  names 

p2 :  high  index 

p3 :  low  index 

p4:  returned  element  list. 

Calls: 

append/3 , vhdl2ges_expand_name/4 , as  sert/ 1 . 

Example: 

I  ?-  vhdl2ges_assert_vector_list([a,b] ,22,20, X) . 

X  =  [a_22 , a_2 1 , a_20 , b_22 , b_2 1 , b_20]  ; 
no 

I  ?-  listing(vhdl2ges_vector_table) . 

vhdl2ges_vector_table(a, [a_22,a_21 ,a_20] ) . 
vhdl2ges_vector_table(b, [b_22,b_21 ,b_20) ) . 


vhdl2ges_assert_vector_list( )  :-  !. 

vhdl2ges_assert_vector_list( [Head I VarList] .High, Low, VarlntList) 

I 


vhdl2ges_expand_name(Head, High , Low , NewList ) , 
assert ( vhdl2ges_ vector .table ( Head , N  ewList ) ) , 
vhdl2ges_assert_vector_list (VarList .High, Low, IntList) , 
append(HewList , IntList .VarlntList) . 


xxmmmxxaacmmxmmmxxxxjammxxmxmxxxmmxxxxxmm 

'/.  vhdl2ges_expand_name_list(pl  ,p2,p3,p4) . 

'/,  This  routine  converts  &  list  of  bit.vector  names  (implied  equal  ranges), 
*/. 
y. 

•/. 

•/. 

% 

•/. 

•/. 

•/. 

•/. 
y. 
y. 
y. 
x 
x 
y. 
y. 
x 
x 
y. 
y. 


to  a  list 

of  element  names . 

Parameters: 

pi: 

list  of  bit.vector  names 

p2: 

high  index 

p3: 

low  index 

p4: 

returned  element  list. 

Calls : 

append/3 , vhdl2ges_ezpand_name/4 . 

Examples : 

I  ?-  vhdl2ges_expand_name_list( [a_in,b_in] , 1050, 1048 ,X) . 

X  =  Ca_in_1050,a_in_1049,a_in_1048,b_in_1050,b_in_1049,b_in_1048]  ; 
no 


vhdl2ges_expand_name_list !. 

vhdl2ges_expand_name_list( [Headl VarList] .High, Low, VarlntList) 

vhdl2ges_expand_name ( Head , High , Low , HewLis t ) , 
vhdl2gea_expand_name_list (VarList .High, Low, IntList) , 
append (lewList , IntList , VarlntList ) . 
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xmmmmmmxmmmmmxmmmmmmxxxxmxxmxxxxxx 


•/. 

•/. 

•/. 

•/. 

•/. 

•/. 

•/. 

•/. 

•/. 

•/. 

•/. 

•/. 

•/. 

■/. 

•/. 

•/. 

v. 

•/. 

•/. 

% 

•/. 

•/. 

■/. 

•/. 

7. 

7. 


vhdl2ges_expand_name(pl,p2,p3,p4) . 

This  routine  converts  a  bit.vector  name  to  a  list  of  element  names. 
Parameters : 


pi: 

bit.vector  name 

p2: 

high  index 

p3: 

los  index 

p4: 

returned  element  list 

Calls : 

append/3 , name/2 
Examples : 

I  ?-  vhdl2ges_expand_name(a_in, 100,95, X) . 

X  =  [a_in_100,a_in_99,a_in_98,a_in_97,a_in_96,a_in_95]  ; 
no 

I  ?-  vhdl2ges_expand_name(a_in,95, 100, X) . 
no 

In  the  second  example,  the  range  sas  ascending  rather  than 
descending. 


vhdl2ges_expand_name(Var , Low, Low, [NewList]) 

■ 

•  f 

name (Low, LowList) , 
name(Var.VarList) , 
append( [95] .LowList .Tail) , 
append(VarList ,Tail,HewVarList) , 
namedeuList.HevVarList) . 

vhdl2ges_expand_name ( Var , High , Lou , [HewASCLi s 1 1 N euList]  )  :  - 
High  >  Low, 
name (High, HighList) , 
name ( Var ,VarList) , 
append ( [95] .HighList, Tail) , 
append (VarList .Tail .HewVarList) , 
name(He«ASCList,lewVarList) , 

Next  is  High  -  1, 

vhdl2ges_expand_name(Var ,Mext , Low, NewList) . 
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The  following  Prolog  routine,  vhdl2gef_comp_ent/0,  is  called  by  vhdl2ges_sub. 


vhdl2ges_conrp_ent  :  - 

vhdl2ges_f ind.ent it y ( Ident if ier , Int  er f ac  e ) , 
vhdl2ges_interface_list(Interface,SigList) , 
assert(component (Identifier .SigList) ) , 
aseert(external_sig(SigList)) . 

From  the  intermediate  form  generated  by  vhdLparser  it  constructs  two  facts  to  be  asserted  on  the 
Prolog  facts  database.  The  first  one,  component/2,  has  the  following  format. 


component(en<dy_name,[  portJist  ]). 

An  example  of  how  component/2  might  look  would  be  the  following. 

component  (half^adder,[x,y,  sum,  cbar]). 

Another  fact  asserted  as  a  result  of  calling  vhdl2ges_comp_ent/0  is  external_sig/l.  Its  format 
is  the  following. 


external_sig([  portJist  ]). 

The  Prolog  routine  vhdl2gesJindjentity/2  is  used  by  vhdl2ges_compjent/0  to  return 
the  entity  name  and  port  list  of  the  component  being  converted  to  an  extraction  rule. 

vhdl2gea _f ind.ent it y ( Ident if i er , Int  erf  ace)  :  - 

de8ign_unit(_, entity (Identifier,., Interface, [),[])). 
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The  Prolog  routine  vhdl2ges_interfaceJist/2  is  called  by  vhdl2ges_comp_ent/0  to  ex¬ 
pand  port  names  from  their  bit-vector  constructions  into  single-element  name-constructions.  A 
table  is  built  called  vhdl2ges_vector_table/2. 

vhdl2ges_interface_list(  □  ,  []  )  ! . 

vhdl2ges_interface_list( 

[int  erf  ace. element ( _ , VarList , _ , 
vhdl.aubt ype (_ , _ , index ( [vhdl.range (Low , to , High)] ) ) , null , null ) 

I IntList] , 

MewList)  : - 

i 

■  • 

vhdl2ges_assert_vector_list (VarList .High , Low , Var IntList ) , 
vhdl2ges.interface.list ( IntList , RetList) , 
append (Var IntList , RetList, HewList) . 
vhdl2ges_interf ace_list( 

[int erf ace.element (_ , VarList , _ , 

vhdl.subtype (_ , _ , index ( [vhdl.range (High .downto , Low)] ) ) , null , null) 

I IntList] , 

HewList) 

i 

•  9 

vhdl2ges_assert_vector_list(VarList .High, Low, Var IntList) , 
vhdl2ges_interface_list( IntList .RetList) , 
append (VarlntList , RetList .HewList ) . 
vhdl2ges.interface.list ( 

[interf ace.element (_ .VarList .....  null .null) I IntList] , 

HewList) 

i 

•  • 

vhdl2ges_interface_list(IntList .RetList) , 
append( VarList , RetList, HewList) . 
vhdl2ges_interface_list([_ I IntList] .RetList) 

! , vhdl2ges_interf ace.Iist (IntList , RetList) . 

vhdl2gesjcompjarch/0  is  used  to  convert  language  constructs  in  the  VHDL  architecture 
to  facts  in  the  Prolog  database  for  further  processing. 

vhdl2ges_comp_arch 
component (EntHame , _) , 
vhdl2ges_f ind_arch(EntHame ,Decl , Body) , 
vhdl2ges_create_int_sig_list(Decl, IntList) , 
assert(internal_sig(IntList)) , 
vhdl2ges_create_alias_table(Decl) , 
vhdl2ges_create_comps(Ded) , 
vhdl2ges_create_goals(Body) . 
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The  Prolog  routine  vhdl2ges Jind_arch/3  returns  the  list  of  architecture  declarative  el¬ 
ements  and  architectural  body  elements  for  use  in  vhdl2ges_comp_arch/0.  The  entity  name 
passed  to  vhdl2ges_findjarch/3  is  used  to  find  the  correct  architecture. 

vhdl2ges_f ind_arch(Entllame ,Decl .Body)  : - 
design.unit (_ , arch(_ , Entlame , Decl , Body ) ) . 

The  Prolog  routine  vhdl2ges_create_int_sig_list/2  is  called  by  vhdl2ges_comp_arch/0. 
The  purpose  of  vhdl2ges^create_int_sigJist/2  is  to  create  a  signal  list  from  the  signals  declared 
in  the  VHDL  architecture  declarative  region.  vhdl2ges_assert_vector_list/4  is  a  vhdlSges  utility 
called  by  vhdl2ges_createJnt_sig_list/2. 

vhdl2ges_create_int_sig_li8t( □  , [] )  ! . 

vhdl2ges_create_int_sig_list( 

[obj  ect.declarat ion (signal , SigList , 

vhdl_subtype (null , _ , index ( [vhdl_range ( H igh , downto , Low) ] ) ) , null , null ) I 
DeclList] , IntList) 

t 

*  > 

vhdl2ges_assert_vector_list (SigList, High, Low, IntermList) , 
vhdl2ges_create_int_sig_list(DeclList .RetList) , 
append ( IntermList .RetList , IntList) . 
vhdl2ges_create_int_sig_list( 

[obj  ect.declarat ion (signal , SigList , 

vhdl_subtype (null , _ , index ( [vhdl.range (Low , to , High ) ] ) ) , null , null ) I 
DeclList] .IntList) 

i 

♦  t 

vhdl2ges_assert_vector_list (SigList , High, Low, IntermList) , 
vhdl2ges_create_int_sig_list (DeclList .RetList) , 
append (IntermList .RetList, IntList) . 

vhdl2ges_create_int_8ig_list ( [obj ect.declarat ion(signal, SigList ,_, null, null) I 
DeclList] .IntList) 

i 

•  » 

vhdl2ges_create_int_sig_list(DeclList .RetList) , 
append (SigList .RetList , IntList) . 
vhdl2ges_create_int_sig_list([_|DeclList] .IntList)  : - 
! ,vhdl2ges_create_int_sig_list(DeclList, IntList) . 
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The  Prolog  routine  vhdl2ges^create_alias_table/l  is  called  by  vhdl2ges_comp_arch/0. 
It  is  used  to  create  alias  tables  from  the  aliases  declared  in  the  VHDL  architecture  declarative  region. 
The  alias  tables  are  used  later  to  translate  alias  names  into  their  actual  names.  A  number  of  helper 
routines  are  called  to  accomplish  this  objective.  The  routines  are  vhd!2gesjassert_vector  Jist/4, 
vhdl2ges_expand_name_list/4,  and  vhdl2ges_assert^alias_table/2.  Both  Prolog  routines 
vhdl2ges^assert .vector Jist/4  and  vhdl2ges_expand_name  Jist/4  are  utilities  described  pre¬ 
viously. 

vhdl2ges_create_alias_table(  □ )  !. 

vhdl2ges_create_alias_table( [vhdl_alias (Alias , 

vhdl_subtype(_,_,index([vhdl_range(AliasHigh,downto, AliasLow)] ) ) , 
vhdl_name (prefix (Name) ,vhdl_range(NameHigh,downto, NameLow) )  ) 

|Decl]) 

i 

•  » 

vhdl2ges_assert_vector_list( [Alias] .AliasHigh, AliasLow.AliasList) , 
vhdl2ges_expand_name_list( [Name] , NameHigh, NameLow, NameList) , 
vhdl2ges_assert_alias_table(AliasList , NameList) , 
vhdl2ges_create_alias_table(Decl) . 
vhdl2ges_create_alias_table( [vhdl_alias (Alias , 

vhdl_subtype(_ , index ( [vhdl_range( AliasLow , to .AliasHigh)] ) ) , 
vhdl.name (pref ix (Name) , vhdl.range (NameLow , to , NameHigh) )  ) 

I Decl] ) 

i 

•  » 

vhdl2ges_assert_vector_list( [Alias] .AliasHigh, AliasLow.AliasList) , 
vhdl2ges_expand_name_list( [Name] .NameHigh, NameLow, NameList) , 
vhdl2ges_assert_alias .table (AliasList .NameList) , 
vhdl2ges_create_alias_table(Decl) . 
vhdl2ges_create_alias_table( [vhdl.alias ( Alias , 

vhdl_subtype(_ , _ , index ( [vhdl.range ( AliasHigh, dovato , AliasLow)]  ) ) , 

Name  ) 

I Decl]) 

i 

•  * 

vhdl2ges_assert_vector_list ( [Alias] , AliasHigh , AliasLow , AliasList ) , 
vhdl2ges_vector_table (Name, NameList) , 
vhdl2ges_assert_alias_table(AliasList .NameList) , 
vhdl2ges_cr eat e_ alias .table (Decl) . 
vhdl2gec_create_alias_table( [vhdl.alias (Alias , 

vhdl_subtype(_ , _ , index ( [vhdl_range( AliasLow , to .AliasHigh)] ) ) , 

Name  ) 

I Decl]) 

i 

•  t 

vhdl2ges_aasert_vector_list ( [Alias] , AliasHigh , AliasLow , AliasList) , 
vhdl2ges_ vector. table (Name , NameList ) , 
vhdl2ges_assert_alias_table(AliasList .NameList) , 
vhdl2ges_create_alias_table(Decl) . 
vhdl2ges_create_alias_table( [vhdl_alias(Alias 
vhdl .name (pref ix(Name) , [Number] ,_)  )lDecl]) 

i 

•  t 

vhdl2ges_expand_name_list( [Name] .Number .Number .NameList) , 
vhdl2ges_a8sert_alias_table( [Alias] .NameList) , 
vhdl2ges_create_alias_table(Decl) . 
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vhdl2gea-.create_alia8-table( [vhdl_alias (Alias , _ , Sig) I Decl] )  :  - 

i 

•  t 

vhdl2ges_assert_alias_table( [Alias] , [Sig] ) , 
vhdl2ges_create_alias_table(Decl) . 
vhdl2ges_create_alias_table( [_ I Decl] )  :  - 

I 

•  • 

vhdl2ges_create_alias_table(Decl) . 

vhdl2ges_assert_alias_table/2  is  called  by  vhdl2ges_create_alias_table/l  for  the  pur¬ 
pose  of  creating  a  lookup  table  of  aliases. 

vhdl2ges_assert_alias_table( [] ,  □  )  !. 

vhdl2ges_assert_alias_table( 

[AliasHead I AliasTail] , [ActualHead I ActualTail]  )  :  - 

i 

•  • 

assert (vhdl2ges_alias_table( AliasHead .ActualHead)) , 
vhdl2ges_assert_alias_table( AliasTail , ActualTail) . 

An  example  of  how  vhdl2gesjassert-alias_table/2  works  is  the  following. 

I  ?-  vhdl2ges_assert_alias_table( [a_l ,a_0] , [s_20, s_19] ) . 

yes 

I  ?-  list ing( vhdl2ges_alias_table) . 

vhdl2ges_alias_table(a_l ,s_20) . 
vhdl2ges_alias_table(a_0,s_19) . 

yes 

I  ?- 

The  information  conveyed  by  the  table  above  is  that  a_l  is  an  alias  for  s_20. 

The  Prolog  routine  vhdl2ges_create_comps/l  is  called  by  vhdl2gcs_<'.omp-m>ch/0  for 
the  purpose  of  creating  a  table  of  component  declarations  from  within  the  architecture  declarative 
region.  The  Prolog  routine  vhdl2ges_compJnterfaceJist/3  is  called  to  generate  a  signal  lisi 
from  the  component  interface  list  in  intermediate  form. 

vhdl2gee_create_comps( [] )  !. 

vhdl2ges_create_comps([vhdl_comp(Comp,_,Int  ’"face) |Decl]) 

•  * 

vhdl2ges_comp_interf ace_list (Corap, Int erf ace .SigList) , 
assert(comp(Comp,SigList)) , 
vhdl2ges_create_coraps(Decl) . 
vhdl2ges_cr eat e_comps ( [_ 1 Decl] )  : - 

i 

*  * 

vhdl2ges_create_comps(Ded) . 

The  following  is  an  example  of  how  the  component  table  is  created  from  a  component  declaration 

in  intermediate  form. 
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I  ?-  vhdl2ges_create_comps([vhdl_comp(and_gate,null, [interf ace_element( 
signal, Cx,y] , in, vhdl.subtype (null, bit, null) .null, null) , 
interf ace_element (signal, [output] .out , vhdl_subtype (null, bit .null) , 
null, null)])]) . 


yes 

I  ?-  listing(comp) . 
comp(and_gate, [x,y .output] ) . 


yes 
I  ?- 


vhdl2ges_comp_interface_list/3  is  called  by  vhdl2ges_create_comps/l  for  translating 
the  intermediate  form  of  the  interface  list  into  a  signal  list. 

vhdl2ges_comp_interf ace_liat (_,□,[] )  !. 

vhdl2ges_comp_ interf ace_list (Comp , 

[interf ace.element (_ , VarList , _ , 
vhdl_subtype(_,_, index ( [vhdl_range(Low, to, High)] )) .null .null) 

I IntList] . 

NewList)  : - 

i 

•  > 

vhdl2ges_assert_comp_vector_list (Comp , VarList .High , Low , Var IntList ) , 
vhdl2ges_comp_ interf  ace_list (Comp , IntList , RetList) , 
append (VarlntList , RetList, HewList)  . 
vhdl2ges_comp_ interf ace_ list (Comp , 

[interf ace.element (_ .VarList , _ , 

vhdl_subtype ( _ , _ , index ( [vhdl_range (H igh , downto , Low) ] ) ) , null , null) 

I IntList] , 

HewList)  : - 

i 

*  » 

vhdl2ges_assert_comp_vector_list(Comp1 VarList .High, Low, VarlntList) , 
vhdl2ges_comp_ interf ace_list (Comp, IntList , RetList) , 
append( VarlntList .RetList .MewList) . 
vhdl2ges_comp_ interf ace.list (Comp, 

[interf ace_element(_, VarList, null, null) I IntList] , 

SewLint) 

•  > 

vhdl2ges_comp_ interf ace.list (Comp, IntList .RetList) , 
append(VarList, RetList, lewList) . 
vhdl2ges_comp_interface_list(Comp, [_|IntList] .RetList) 

! ,vhdl2ges_comp_interface_list(Comp, IntList, RetList) . 
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The  Prolog  routine  vhdl2ges_create.goals/l  is  called  by  vhdl2g<:s_comp_arcli/0  for  the 
purpose  of  creating  in  the  database  a  table  of  instantiated  components,  “goals” ,  for  the  instantiated 
components  in  the  architecture  body. 

vhdl2ges_create_goals(  □ )  !. 

vhdl2ges_create_goals( [comp_instant(_ .Name, _ .ElementList) | Body] )  : - 
vhdl2gaa_create_actual_list (Name , ElementList . ActualList ) , 
assart (goal (lame, ActualList)) , 

•  • 

vhdl2ges_create_goals(Body) . 
vhdl2gca_create_goals([_|Body] ) 

i 

•  * 

vhdl2ges_create_goals(Body) . 

vhdl2ges_create-actualJist/3  is  called  by  vhdl2ges_create_goals/l  Tho  Prolog  routine 
vhdl2ges_create^actual_list/3  forms  the  interface  list  in  the  correct  order  for  the  goal  table 
regardless  of  the  form  of  the  port.map.aspect. 

vhdl2gas_craate_actual_li8t(_ ,[],[])  :  -  ! . 
vhdl2ges_create_actual_li8t (CompName , 

[element  (null ,  vhdl_najne  (prefix  (Name)  , 

vhdl_range (Low , to .High) ) ) I ElementList] .ActualList) 

i 

*  9 

vhdl2ges_expand_name ( Name .High , Low , VectorList ) , 
vhdl2ges_check_alias(VectorList .RealLiat) , 

vhdl2ges_create_actual_list (Complame, ElementList, IntermList) , 
append (RealList , IntermList , ActualList) . 
vhdl2ges_crerfte_actual_list (CompName, 

[element (null, vhdl.name (prefix (Name) , 

vhdl_range(High,downto .Low) ) ) lElementList] .ActualList) 

i 

'  9 

vhdl2ges_expand_name(Mame , High , Low .VectorList ) , 
vhdl2ges_check_alias(VectorList .RealList) , 
vhdl2ges_create_actual_list(CompHame, ElementList .IntermList) , 
append (RealList , IntermList , ActualList) . 
vhdl2ges_create_actual_list(CompHame, 

[element (null, 

vhdl_call (Marne, [element (null .MameNumb)] ) ) 
lElementList] .ActualList) 

i 

*  9 

vhdl2ges_expand_name( Marne , MameMumb , MameNumb , NameList ) , 
vhdl2ges_check_alias(MameList .RealList) , 

vhdl2gea_create_actual_list (CompName .ElementList .InterList) , 
append (RealLiat , InterList , ActualList) . 
vhdl2ges_create_actual_list( CompName, 

[element (null, Marne) lElementList] .ActualList) 
vhdl2ges_ vector. t able (Marne, VectorList) , 

i 

*  * 

vhdl2gea_check_alias(VectorList .RealList) , 

vhdl2ges_create_actual_list (CompMame , ElementList , IntermList ) , 
append (RealList , IntermList , ActualList ) . 
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vhdl2ges_create_actual_list (CompName, 

[element (null .Hama) I ElementList] .ActualList) 

i 

■  » 

vhdl2ges_check_alias( [Name] .Real) , 

vhdl2ges.create_actual.list (CompName, ElementList  .IntermList) , 
append(Real .IntermList , ActualList) . 
vhdl2ges.create_actual.list (CompName, 

[element (vhdl_name(prefix( Assoc) , vhdl_range(AssocHigh .downto , AssocLow) ) , 
vhdl_name( prefix (Same) , vhdl_range( NameHigh , downto , NameLow) ) ) 

I ElementList] , ActualList )  : - 

i 

•  » 

vhdl2ges_expand_name(Assoc, AssocHigh, AssocLow , AssocList) , 
vhdl2ges_expand_name (Name , MameHigh , NameLow , NameList ) . 
vhdl2ges_check_alias(HameList .RealList) , 
vhdl2ges_assert_element (AssocList .RealList) , 
vhdl2ges.create_actual.list (CompName , ElementList , InterList) , 
corap(CompName , SignalList) , 

vhdl2ges_retract_element (SignalList .Order edList) , 
append(OrderedList .InterList .ActualList) 
vhdl2ges_cr eat e.actual.list (CompName , 

[element (vhdl_name(prefix( Assoc) .vhdl.range (AssocLow, to, AssocHigh) ) , 
vhdl.name (prefix (Name) ,vhdl_range (NameLow, tc  .NameHigh)) ) 

I ElementList] .ActualList) 

•  » 

vhdl2ges_expand_name( Assoc, AssocHigh, AssocLow, AssocList) , 
vhdl2ges_expand_name(Name , NameHigh , NameLow , NameList ) , 
vhdl2ges_check_alias(NameList .RealList) , 
vhdl2ges_assert_element (AssocList .RealList) , 
vhdl2ges_create_actual_list (CompName, ElementList .InterList) , 
comp (CompName, SignalList) , 

vhdl2ge8_retract_element (SignalList , OrderedLis t ) , 
append (Order edList , InterList , ActualList) . 
vhdl2ges_create_actual_list (CompName, 

[element (Assoc , 

vhdl_name (pref ix(Name) , vhdl.range ( NameHigh , downto , NameLow) ) ) 

I ElementList] .ActualList) 

i 

•  » 

vhdl2ges_comp_ vector. table (CompName, Assoc .AssocList) , 
vhdl2ges_expand_name (Name , NameHigh , NameLow , NameList ) , 
vhdl2ges_check_alias(NameList , RealList) , 
vhdl2ges_assert_element(AssocList .RealList) , 
vhdl2ges_create_actual_list (CompName , ElementList , InterList) , 
comp (CompName, SignalList) , 

vhdl2ges_retr act .element (SignalList .Order edList ) , 
append (OrderedList , InterList , ActualList) . 
vhdl2ges_cr eat e.actual.list (CompName, 

[element (Assoc, 

vhdl.name (prefix (Name) ,vhdl_range( NameLow, to, NameHigh))) 

I ElementList] .ActualList) 

i 

■  » 

vhdl2ges_comp_vector_table(CompName, Assoc, AssocList) , 
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vhdl2ges_expand_name(Name,NameHigh,NameLow .NameList) , 
vhdl2ges_check_alias(NameList  .RealList) , 
vhdl2ges_assert_element (AssocList .RealList) , 
vhdl2ges_create_actual_list (CompName, ElementList .InterList) , 
comp(CompHame, SignalList) , 

vhdl2gas_retract_element(SignalList .OrderedList) , 
append ( Order edList , InterList , ActualL:  st) . 
vhdl2ges_create_actual_list (CompName, 

[element (vhdl_name(pr et ix( Assoc) ,vhdl_range( AssocLow, to, AssocHigh) ) , 
Same) lElementList] , ActualList) 

i 

•  I 

vhdl2ges_expand_name(Assoc> AssocHigh, AssocLow, AssocList) , 
vhdl2ges_vector_table(Iame,NameList) , 
vhdl2ges_check_alias(NameList .RealList) , 
vhdl2ges_assert_element (AssocList .RealList) , 
vhdl2ges_create_actual_list (CompName , ElementList , InterList) , 
comp(CompXame , SignalList) , 

vhdl2ges_retract_element(SignalList .OrderedList) , 
append (OrderedList , InterList , ActualList ) . 
vhdl2ges_create_actual_list(CompNajne, 

[element (vhdl_name(prefix( Assoc) , vhdl_range( AssocHigh .downto .AssocLow) ) , 
Hame) I ElementList] .ActualList) 

i 

•  > 

vhdl2ges_expand_name( Assoc, AssocHigh, AssocLow, AssocList) , 
vhdl2ges_vector_table(Hame,NameList) , 
vhdl2ges_check_alias(HameList .RealList) , 
vhdl2ges_assert_element(AssocLi3t .RealList) , 
vhdl2ges_create_actual_list (CompName, ElementList .InterList) , 
comp (CompName, SignalList) , 

vhdl2ges_retract_element (SignalList .OrderedList) , 
append(OrderedList .InterList .ActualList) ■ 
vhdl2ges_create_actual_list (CompName, 

[element(vhdl_name(preiix(Assoc) , [AssocNumb] , [] ) , 
vhdl_call(Name, [element (null, NameNumb)] )) 

I ElementList] .ActualList) 

i 

'  I 

vhdl2ges_expand_name(Assoc , AssocNumb , AssocNumb .AssocList ) , 
vhdl2ges_expand_name (Name , NameNumb .NameNumb , NameList ) , 
vhdl2ges_check_alias(NameList .RealList) , 
vhdl2gea_as8ert_element (AssocList .RealList) , 
vhdl2ges_create_actual_list (CompName .ElementList .InterList) , 
comp(CorrpName,  SignalList) , 

vhdl2ges_retract_element(SignalList .OrderedList) , 
append (OrderedList .InterList .ActualList) . 
vhdl2ges_create_actual_list( CompName, 

[element (Assoc , 

vhdl_call(Name, [element (null, NameNumb)] )) 

I ElementList] .ActualList) 

i 

♦  » 

vhdl2ges_expand_naae(Name, NameNumb, NameNumb, NameList) , 
vhdl2ges_check_alias(NameList .RealList) , 
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vhdl2ges_assert_element( [Assoc] .RealList) , 
vhdl2ges_create_actual_list (CompName, ElementList .InterList) , 
comp(CompName, SignalList) , 

vhdl2ges_r«tract_element(SignalList .OrderedList) , 
append(OrderedList , InterList , ActualList) . 
vhdl2ges_create_actual_list (CompName, 

[element (vhdl_name(pref ix(Assoc) , [AssocNumb] , [] ) , 

lame) 

I ElementList] .ActualList)  : - 

i 

•  » 

vhdl2ges_expand_name( Assoc, Assoclumb, AssocNumb, AssocList) , 
vhdl2ges_check_alias( [Name] .RealList) , 
vhdl2ges_assert_element (AssocList .RealList) , 
vhdl2ges_create_actual_list(Complame, ElementList .InterList) , 
comp(CompName, SignalList) , 

vhdl2ges_retract_element(SignalList .OrderedList) , 
append(OrderedList .InterList .ActualList) . 
vhdl2ges_create_actual_list (CompName, 

[element (Assoc, Name) I ElementList] .ActualList) 
vhdl2ges_vector_table (Name , NameList ) , 

i 

*  » 

vhdl2ges_comp_vector_table(CompName, Assoc, AssocList) , 
vhdl2ges_check_alias(NameList .RealList) , 
vhdl2ges_assert_element (AssocList , RealList) , 
vhdl2ges_create_actual_list (CompName , ElementList , InterList) . 
comp(CompName .SignalList) , 

vhdl2ges_retract_element (SignalList .OrderedList) , 
appem  (OrderedList , InterList , ActualList) . 
vhdl2ges_create_actual_list (CompName, 

[element (Assoc, Name) I ElementList] .ActualLiBt) 

i 

•  » 

vhdl2ges_check_alias( [Name] .RealList) , 
vhdl2ges_assert_element( [Assoc] .RealList) , 
vhdl2ges_create_actual_list (CompName, ElementList .InterList) , 
comp (CompName, SignalList) , 

vhdl2ges_retract_element (SignalList .OrderedList) , 
append (OrderedList , InterList , ActualList ) . 
vhdl2ges_create_actual_list(CompName, [_ I ElementList] .ActualList) 

i 

•  » 

vhdl2ges_create_actual_list (CompName, ElementList .ActualList) . 


23 


The  Prolog  routine  vhdl2ges_check_alias/2  is  called  by  vhdl2ges_create_actual_list/3. 
The  Prolog  routine  vhdl2ges_check_alias/2  checks  that  the  signal  is  not  an  alias  and  if  so,  returns 
the  actual  name  for  the  alias  name. 

vhdl2gea_ch6ck_alias(  □  , [] )  : -  ! . 

vhdl2ges_check_alias( [Alias  1 Tail] , [Actual I ActualList]  ) 
vhdl2ges_alias_table(Alias, Actual) , 

i 

•  > 

vhdl2ges_check_ alias (Tail .ActualList) . 
vhdl2ges_check_alias ( [Actual I Tail] , [Actual | ActualList]  )  :  - 
•  » 

vhdl2ges_check_alias (Tail, ActualList) . 

vhdl2ges_assert_element/2  is  called  by  vhdl2ges_create ^actualJist/3  to  create  a  tem¬ 
porary  table  for  association  lists.  The  table  is  related  to  the  port.map.aspectoi  a  specific  component. 

vhdl2ges.assert_element ([],[])  : -  ! . 

vhdl2ges_assert_element( [Assoc  I AssocList] , [Real ! RealList] )  : - 

i 

•  > 

assert (assoc (Assoc, Real) ) , 
vhdl2ges_assert_element(AssocList .RealList) . 

vhdl2ges_retract_element/2  is  called  by  vhdl2ges_create^actualJist/3.  It  is  used  to 
retract  the  temporary  table  for  association  lists  created  by  vhdl2ges_assert_element/2.  The 
temporary  table  is  retracted  in  the  order  specified  by  the  locaLpori.clause  of  the  component  being 
translated. 

vhdl2ges_retract_element ([],[])  : -  ! . 
vhdl2ges_retract .element ( [Assoc  I AssocList] , 

[MewHeadlHewTail] ) 
retract (assoc( Assoc, NeoHead)) , 

i 

•  » 

vhdl2ges_retract_element (AssocList , NewTail) . 
vhdl2ges_retract_element (_ , [] )  : -  ! . 

The  following  set  of  rules  is  used  to  generate  the  GES  extraction  rules  within  an  output  file 
called  rulefile.  The  first  Prolog  routine,  vhdl2ges_gen_rule,  is  called  by  vhdl2gesjsub. 

vhdl2ges_gen_rule 
tell (rulefile) , 
component (Marne,.) , 
write(Iame) ,vrite( '  :-') ,nl, 
vhdl2ges_gen_matching_goals_in_order(0,Acc) , 
vhdl2ges_gen_unique_rule(Acc) , 
vhdl2ges_gen_not_connected , 
vhdl2ges_gen_retract , 
vhdl2ges_gen_ anomaly , 
vhdl2ges_gen_assert , 
nl, 
told. 
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vhdl2ges_gen_matching-goals Jn_order/2  is  called  by  vhdl2ges_gen_rule.  An  accumu¬ 
lator  is  used  to  keep  track  of  the  number  of  components  being  used  as  matching  goals.  The 
accumulator  value  is  used  to  make  unique  X  and  Y  variables  for  each  matching  goal. 

vhdl2ges_gen_matching_goals_in_order(Acc2,Acc)  : - 
retract (goal (Varna, SigList) ) , 

i 

•  * 

write(»  ’) .write (Hama) ,srite('(I') , 
vhdl2ges_write_sig_name(SigList) , 
sr it a ( ' PX’) ,write(Acc2) , 
write(’ ,Y’) ,writa(Acc2) , 
write( ' , *) ,nl, 

NewAcc2  is  Acc2  +  1, 

vhdl2ges_gen_matching_goals_in_order(NevAcc2, Acc) , ! , 
assert (goal (Ham e .SigList)) . 
vhdl2ges_gen_matching_goals_in_order(Acc,RetAcc) 

Ret Acc  is  Acc  -  1. 

A  goal  in  the  facts  database  would  be  converted  in  the  following  manner. 

I  ?-  list ing(goal) . 

goal(and_gate , [a.b.out]  ) . 
goal(and_gate, [c,d,out2]  ) . 

yes 

I  ?-  vhdl2ges_gen_matching_goals_in_order(0,X) . 
and.gatefHa.Hb.Hout.XO.YO,,) , 
and_gate(Mc,Hd,Hout2,Xl ,Y1 , 

X  =  1  ; 

no 

I  ?- 


The  value  returned  in  X  is  one  less  than  the  number  of  goals. 

The  Prolog  routine  vhdl2ges_write_sigjname/l  is  called  by  vhdl2ges_gen_Hsting/0, 
vhdl2ges_gen_not_connected/0,  vhdl2ges_gen_retract/0,  vhdl2ges^en^anomaly/0, 
vhdl2ges.gen_assert/0,  and  vhdl2ges-gen_matching_goalsJn_order/2.  The  Prolog  routine 
vhdl2ges_write_sig-name/l  takes  a  signal  list  and  writes  the  list  in  the  correct  order,  each  signal 
name  with  a  prefix  of  “N”  (excluding  the  first  signal  name  in  the  list). 

vhdl2ges_write_sig_name( [Last] )  :  - 
! .write(Last) . 

vhdl2ges_writ®_sig_najne([SiglList] ) 
write(Sig) ,Hrite( ’ ,M' ) , 

i 

•  I 

vhdl2ges_write_sig_name(List) . 

An  (example  of  vhdl2ges_write_sig_naine/l  is  shown  in  the  following. 
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I  ?-  vhdl2ges_write_sig_name( [a,b, c,d]  ) . 

a.Ib.Ic.Id 

yas 

I  ?- 


The  Prolog  routine  vhdl2ges_gen_unique_rule/l  is  called  by  vhdl2ges_gen_iule.  It  pro¬ 
duces  unique_component/l  for  the  extraction  rule. 

vhdl2ges_gen_unique_rule ( Acc)  :  - 
write ( ’  unique_component( [' ) , 
vhdl2ges_gen_unique_XYs (Acc) , 

writa(O) , ')  ,nl. 

vhdl2ges_gen_unique_XYs/l  is  called  by  vhdl2ges_gen_unique_rule / 1 .  It  produces  an 
ordered  listing  of  X-Y  pairs. 

vhdl2ges_gen_unique_XYs(0) 

i 

•  » 

write( ’ [XO,YO] ') . 
vhdl2ges_gen_unique_XYs(Acc) 
write('[X’), 

write(Acc) , 
writa( ' ,Y’) , 
write (Acc) , 
write( '] , ') , 

HewAcc  is  Acc  -  1, 

!. 

vhdl2gas_gan_uniqua_XYs(IawAcc) . 

The  following  is  an  example  of  the  output  produced  by  vhdl2ges_gen_unique_XYs/l. 

I  ?-  vhdl2ges_gen_unique_XYs(5) . 

CX5.Y5] , [X4.Y4] , [X3.Y3] , [X2,Y2] , [XI ,Y1] , [XO.YO] 
yes 

I  ?- 


The  Prolog  routine  vhdl2ges_gen_not_connected/0  is  called  by  vhdl2ges_gen_rule.  The 
Prolog  routine  vhdl2ges_gen_not_connected/0  produces  the  not_connected/2  goal  used  by 
the  extraction  rule. 

vhdl2ges_gen_not_cozwected  : - 
internal_sig(  □  ) , 

vhdl2gas_gan_not .connected 

i 

•  » 

intarnal.sig(Listl) , 
external_sig(List2) , 
writa(’  not_connected( [■' ) , 
vhdl2gas_write_8ig_name(Listl) ,write( ’] , [N' ) , 
vhdl2ges_write_sig_name(List2) ,write( ']) , ') ,nl. 
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The  Prolog  routine  vhdl2ges_gen_retract/0  is  called  by  vhdl2ges_gen_rule. 


vhdl2ges_gen_retract  : - 

retract (goal (Vane , SigList) ) , 

i 

•  I 

write( *  retract(’) .write(Name) , write('(N') , 
vhdl2ges.write_sig.name (SigList) , 
write ( ’),nl, 
vhdl2gea_gen_retract . 
vhdl2ges_gen_retract  !. 

The  Prolog  routine  vhdl2ges _gen ^anomaly / 0  is  called  by  vhdl2ges_gen_rule.  The  Prolog 
routine  vhdl2ges_gen_anomaly/0  produces  the  “find.anomaly”  line  in  the  extraction  rule. 

vhdl2ges_gen_anomaly 
internal_sig(  □  ) , 

i  _ 

vhdl2ges_gen_ anomaly  : - 

i 

•  9 

component (Name ,_) , 
external_sig(List) , 

write('  lind_anomaly_list(') ,write(Name) ,write('(N') , 

vhdl2ges_write_sig_name(Li8t) , 

write( ’ ,XO,YO, 1) , [N* ) , 

internal_sig(Liat2) , 

vhdl2ges_write_sig_name(List2) t 

write(']),'),nl. 

vhdl2ges_gen^assert /0,  is  called  by  vhdl2ges-gen_rule.  vhdl2ges_gen_assert/0  is  used 
to  generate  the  assert  line  of  the  extraction  rule. 

vhdl2ges_gen_assert  : - 
component (Name,.) , 
external.sig(Liat) , 

write( ’  assertC ') .write (Name) ,write( ’ (N') , 
vhdl2ges_write_aig_name(Liat) , 
write( * ,X0,Y0,1)) , ’) ,nl,write('  fail. ’) ,nl, 
write(Name) ,write( ’.*),!. 

The  following  Prolog  routines  generate  a  find_anomaly/2  rule  for  GES.  The  output  is 
placed  in  a  file  called  anomalyfile.  The  Prolog  routine  vhdl2ges.gen_find_anomaly/0  is  called 
by  vhdl2ges_sub/0. 

vhdl2ge8_gen_l ind. anomaly  : - 
tell (anomalyfile) , 
vhdl2ges_anomaly_f irst.line , 
component (Name,.) , 
external.sig(List) , 

vhdl2ges_anomaly_gen_m&tch(Name, List, List) , 

vhdl2ges_anomaly_gen_tail(Name) , 

told. 
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vhdl2gesjanomaly_first  Jine/O,  is  called  by  vhdl2ges_gen_find^anomaly/0 
vhdl2ges_anomaly_f irst.line  :  - 

i 

•  » 

write ( ’ f ind.anomaly (Comp , lode )  , 

nl, 

write( '  ('). 

vhdl2ges_anomaly_gen_match/2,  is  called  by  vhdl2ges_gen_find ^anomaly /0. 
vhdl2ges_anomaly_gen_match(Name .Listl , [Head] ) 

i 

*  » 

write (lane) , write ('(') , 
vhdl2ges_anomaly_node_blank (Listl , [Head]  ) , 
write(’X,Y,_)),'),nl. 

vhdl2ges_anomaly_gen_match(Xame , Listl ,  [Head  I  List2]  ) 
write (lane) , write ( '  ( ' )  , 

vhdl2ges_anomaly_node_blank(Listl , [HeadI List2] ) , 
write ( ’X,Y,_) ; ') ,nl,write( ’  '), 

i 

•  I 

vhdl2ges .anomaly _gen_mat  ch (Name , Listl, List2). 

vhdl2ges .anomaly _node_blank/2  is  called  by  vhdl2ges^anomaly_genanatch/2. 

vhdl2ges_anomaly_node_blank( [] ,_)  !. 

vhdl2gee_anomaly_node_blank( [Head 1 Listl) , [Headl List2]) 
write ('Node,'), 

!. 

vhdl2ges_anomaly .node.blank (List 1 , [Head I  Lis t2] ) . 
vhdl2ges_anomaly_node_blank( [_ | Listl] ,List2)  : - 
write( '), 

i 

•  » 

vhdl2ges_anomaly_node_blank (Listl ,List2) ■ 

vhdl2ges_anomaly_gen_tail/l  is  called  by  vhdl2ges_gen_find_anomaly/0. 

vhdl2ges_anomaly_gen_tail(Name) 

write('  write ( "Failure  extracting  component  " ) .write(Comp) , ') ,nl, 
write('  write("  .  ”),nl,write("  Internal  node,  ")  .write(Node) , ')  ,nl , 
write('  write(",  connected  to  ')  .write(Name) , 
write('  at  X:"),'),nl, 

write('  write(X) ,write("  ,  Y: ’ ’) ,write(Y) ,vrite(’ ' . ' ’) ,nl. ') ,nl. 
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The  Prolog  routines  vhdl2ges_gen_rule_name/0  and  vhdl2ges_gen_listing/0  are  both 
called  by  vhdl2ges_sub/0.  Both  routines  generate  the  appropriate  Prolog  code  for  GES  to  call 
the  extraction  rule  and  call  the  list  rule. 

vhdl2ges_gen_rule_naine 
tell (rulelistf ile) , 
component (Name ,_) , 
write (Name) , write( ' , ') , 
nl, 
told. 

vhdl2ges_gen_listing  : - 
tell(listlistfile) , 
component (Name, _) , 
write( ' list_ • ) , write(Name) , 
write(* , ’),nl, 
told, 
fail. 

vhdl2ges_gen_listing 

i 

•  » 

tell(listfile) , 
component (Name, _) , 
external_sig(List) , 

write ( 'list_') .write(Name) ,write(’  ,nl, 

write(  ’  retract ( ' ) .write (Name' . write ( ’ (N ' ) , 
vhdl2ges_write_aig_name(List) ,write( * ,X,Y,T)) , * ) ,nl , 
write( *  write( ' ) , write (Name) ,write( ’ (N» ) , 
vhdl2ges_write_sig_name(List) ,write( * ,X,Y ,T)) , ') , 
write(*  write(’ • . * ') ,nl, ') ,nl, 
write(*  fail.’),nl, 

write( ’list.') .write(Xame) ,write( ’ . ’) ,nl, 
told. 
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12  Building  VHDL2GES 

As  stated  earlier,  vhdl2ges  uses  the  VHDL  intermediate  form  generated  by  vhdLparser.  There¬ 
fore,  vhdl2ges  must  be  compiled  into  a  Prolog  saved  state  of  the  vhdLparser.  The  following  Quintus 
Prolog  session  demonstrates  building  and  saving  vhdl2ges. 

'/.  vhdl_parser 

Quintus  Prolog  Release  2.4  (VAX,  Ultrix  2. 0-2. 2) 

Copyright  (C)  1988,  Quintus  Computer  Systems,  Inc.  All  rights  reserved. 

1310  Villa  Street,  Mountain  Vies,  California  (415)  965-7700 

I  ?-  compile ( vhdl2ges ) . 

[compiling  /usr/users/ges/src/pro/vhdl2ges/vhdl2ges.pl. 

[Undefined  procedures  sill  just  fail  ('fail’  option)] 

[vhdl2ges.pl  compiled  13.433  sec  12,752  bytes] 

yes 

I  ?-  save(vhdl2ges) . 

[  Prolog  state  saved  into  /usr/users/ges/src/pro/vhdl2ges  ] 

yes 
I  ?- 


4-3  Executing  VHDL2GES 

There  are  two  steps  to  executing  vhdl2ges.  The  Prolog  saved  state  is  called  at  the  system 
prompt.  Afterwards,  the  Prolog  routine  vhdl2ges/l  is  called  at  the  Prolog  prompt.  A  short 
session  demonstrating  how  this  is  done  follows. 

‘/.  vhdl2ges 
yes 

I  ?-  vhdl2ges(foo) . 

** 

*/. 


The  VHDL  file  for  this  example  may  be  called  either  foo.vhd  or  foo.vhdl. 

There  are  five  files  produced  by  vhdl2ges.  These  files  are  called  anomalyfile,  listfile,  listlist- 
file,  rulefile,  and  rulelistfile.  The  file  anomalyfile  contains  a  find-anomaly /2  Prolog  routine 
for  the  component  being  extracted.  The  file  listfile  contains  the  Prolog  routine  for  correctly  listing 
the  extracted  component  to  the  standard  output.  The  file  listlistfile  contains  the  Prolog  call  for 
the  Prolog  list  routine.  The  file  rulefile  contains  the  extraction  rule  for  the  component.  Finally,  the 
file  rulelistfile  contains  the  Prolog  call  for  the  extraction  rule.  For  an  example  of  the  informat  ion 
produced  by  vhd!2ges,  let  us  consider  the  following  VHDL  description  of  a  full  adder: 
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entity  lull. Adder  is 

port  (  / 

X,  Y,  Cin:  in  bit; 

Sum,  Cout:  out  bit 

>; 

end  lull. Adder; 

architecture  lull.adder  ol  lull.Adder  is 

component  nand.gate 

generic (constant  tPLH:TIME:=0  ns; 

constant  tPHL:TIHE:=0  ns); 
port  (signal  A: in  bit; 

signal  B:in  bit; 
signal  C:out  bit); 
end  component; 

lor  all  :  nand.gate  use  entity  work.nand_gate(  nand.gate  ); 

component  hall_adder.ee 
port  ( 

X,  Y  :  in  bit; 

Sum,  Cbar:  out  bit 

); 

end  component; 

lor  all  :  hall_adder.ee  use  entity  work. hall_adder.ee (  gate.level  ); 
signal  P,  Q,  R  :  bit; 
begin 

Cl:  HAMD.GATE  port  map  (Q,  R,  Cout); 

C2:  HALF.ADDER.CC  port  map  (X,  Y,  P,  Q); 

C3:  HALF.ADDER.CC  port  map  (P,  Cin,  Sum,  R) ; 
end  lull.adder; 

vhdlSges  is  run  to  transform  the  full  adder  VHDL  model. 

'/.  vhdl2ges 
yes 

1  ?-  vhdl2ges (lull.adder) . 

** 

*/. 
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The  contents  of  anomalyfile  are 


f ind.anomaly (Comp, Node) 

(f ull.adder (lode 
f ull.adder ( _ , Mode ,_,_,_,X,Y,_); 
full_adder(_,_,Node,_,_,X,Y,_) ; 
full_adder(_,_,_,Node,_,X,Y,_) ; 
f ull.adder ( _ Mode , X , Y , _ ) ) , 

write ( 'Failure  extracting  component  ' ) .write(Comp) , 
write(' . ’),nl,write(’  Internal  node,  ’) .write (Node) , 
write(',  connected  to  full.adder  at  X:'), 
write(X) ,write(’ ,  Y: ') ,write(Y) , write ( * . ') ,nl. 

The  contents  of  listfile  are 

list_iull_adder  : - 

retract (f ull.adder (Nx.Ny, Hein, Nsum.Ncout ,X,Y,T) ) , 
write(full_adder(Mx,Hy,Hcin,Nsum,Mcout,X,Y,T)) ,  write(’ . ’) ,nl, 
fail. 

list_f ull.adder . 

The  contents  of  listlistfile  are 
list.f ull.adder, 

The  contents  of  rulefile  are 
f ull.adder 

nand_gate(Hq,Mr,Ncout ,XO,YO,_) , 
half _adder.ee (Hx, My, Np.Nq, XI, Yl,_) , 
half _adder.ee (Hp , Hein , Msum , Hr , X2 , Y2 , _ ) , 
unique.component ( [[X2,Y2] , [XI ,Yl] , [XO.YO]] ) , 
not.connectedf CMp , Hq, Mr] , [Hx , Hy , Mein , M sum , Mcout] ) , 
retract (half _adder.ee (Hp , Hein, Hsum, Mr, 
retract (half_adder.ee (Hx.Hy.Mp.Hq, 
retract  (nand_gate  (Hq ,  Hr ,  Scout 

f ind_anomaly_list(f ull.adder (Hx, My, Hein, Hsum, Mcout, XO.YO, 1) , [Np.Nq, Nr]) , 

assert (f ull.adder (Hx , Hy , Hein , Hsum .Mcout , XO , YO , 1 ) ) , 

fail. 

f ull.adder . 

The  contents  of  rulelistfile  are 
f ull.adder , 


4.4  A  C-Shell  Routine  for  Building  a  Customized  GES 

A  C-Shell  routine  was  written  so  that  a  series  of  VHDL  files  could  be  read  in  and  a  customized 
GES  built  from  the  resulting  extraction  rules.  The  following  is  a  portion  of  the  C-Shell  routine 
that  pertains  to  vhdlSges. 


PATH=/bin:/usr/bin:/usr/local/bin:/usr/users/ges/bin:/usr/users/cad/bin 


anomaly=/tmp/ anomaly . $t 
rules=/tmp/rules .  tt 
rulolist =/ tmp/rulelist . t$ 
listl ile=/tmp/listf ile.tt 
listlistf ile=/tmp/listlistf ile . tt 


case  "Si"  in 
-v) 

>$anomaly 
>$rules 
>$rulelist 
>$listf ile 
>tlistlistf ile 
for  i  in  $* 
do 

if  test  "ti"  !=  -v 
then 

if  test  -f  H$i".vhd  -o  -i  "$i".vhdl 
then 

(echo  'vhdlSgesC';  echo  $i  ;echo  ')■’)  I  vhdl2ges 

cat  anomalyfile  »  $anomaly 

rm  anomalyfile 

cat  rulefile  »  $rules 

rm  rulefile 

cat  rulelistfile  »  Srulelist 
rm  rulelistfile 
cat  listfile  »  Slistfile 
rm  listfile 

cat  listlistfile  »  $listlistf ile 
rm  listlistfile 
else 

echo  $i  does  not  exist,  ges  not  produced, 
rm  $anomaly 
rm  $rules 
rm  trulelist 
rm  $listfile 
rm  Slistlistf ile 
rm  -f  ges 
exit  2 
fi 
fi 

done 

cp  /usr/users/ges/src/sh/verify/gesl  ges 
cat  trulelist  »  ges 
rm  trulelist 

cat  /usr/us«rs/ges/src/sh/verify/gss2  »  ges 
cat  tlistlistfile  »  ges 
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rm  llistlistf ils 

cat  /usr/users/ges/src/sh/verify/ges3  »  ges 
cat  $rules  »  ges 
nn  $rules 

cat  /usr/users/g«s/src/sh/verify/ges4  »  ges 
cat  lanomaly  »  ges 
rm  $ anomaly 

cat  /usr/users/ges/src/sh/verify/ges5  >>  ges 
cat  llistfils  »  ges 
rm  Slistfile 

echo  "compile(ges) .  save(ges).*'  |  prolog 
exit  0  ;; 


other  switches 


esac 

echo  Hust  specify  switch: 
echo  verify  -v  filel  . . .  file*  - 

echo  verify  -g  magicfile  - 

echo  verify  -s  simfile  - 

echo  verify  -e  simfile  - 

echo  verify  -c  - 

exit  1 


to  build  customized  ges  from  VHDL 
to  execute  magic,  ext2sim,  and  ges 
to  execute  ges 
to  execute  ges_errorl 
to  clew  up  files 


The  “$$”  used  in  the  first  few  lines  of  the  C-shell  appends  the  process  number  of  the  current 
process  to  the  files  being  opened  in  the  /tmp  directory.  Afterwards,  a  test  is  made  to  ensure 
that  the  VHDL  files  exist.  As  each  VHDL  file  is  processed  by  vhdl2ges,  the  five  files  produced  by 
vhdl2ges  are  appended  to  their  counterparts  in  the  /tmp  directory.  Once  all  of  the  VIIDL  files  have 
been  processed,  the  five  temporary  files  kept  in  the  /tmp  directory  are  merged  with  the  Prolog 
code  of  GES.  The  customized  GES  is  then  compiled  in  Prolog  and  saved. 
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V.  Limitations  of  Hierarchical  Extraction  Methods 


The  purpose  of  this  section  is  to  discuss  some  limitations  to  hierarchical  extraction.  After  the 
discussion  of  the  limitations,  some  suggestions  for  overcoming  these  limitations  will  be  discussed. 
The  problem  specifically  involves  the  types  of  component  configurations  that  are  recognized  and 
extracted.  Consider  the  following  example. 

Assume  that  an  extraction  rule  exists  for  identifying  an  AND  gate  formed  from  a  NAND 
gate  followed  by  an  inverter.  A  typical  GES  extraction  rule  for  identifying  this  configuration  is  the 
following. 

and_gate  : - 

nand_gat e (Nx , My , H interm , XO , YO , _ ) , 
inv(Ninterm,Noutput,Xl,Yl,_) , 
unique_component( [[XI ,Yl] , [XO.YO]] ) , 
not_connected( [Hinterm] , [Nx,Ny,Noutput]) , 
r etract(inv( Mint erm.Noutput , 
retract (nand_gate(Nx ,Ny .Ninterm, ) , 

f ind_anomaly_list(and_gate(Nx,Ny .Noutput ,X0 ,Y0, 1) , [Ninterm] ) , 
assert(and_gate(Nx,Ny .Noutput , XO.YO, It)  , 
fail . 
and_gate . 

From  the  extraction  rule  and_gate/0,  every  NAND  gate  followed  by  an  inverter  will  be  replaced 
with  an  AND  gate. 

Consider  an  additional  extraction  rule,  half-adder_cc/0,  constructed  as  follows, 
half _adder_cc 

xor_gate(Nx,Ny ,Nsum,XO,YO,_) , 
nand_gate(Nx,Ny,Ncbar ,X1 ,Y1 , 
inv(Ncbar .Ncarry ,X2 ,Y2 , _) , 
unique_component( [[X2,Y2] , [XI ,Y1] , [XO.YO]]) , 
not_connected( [Hcbar] , [Nx,Ny,Nsum, Ncarry] ) , 
retract(inv(Hcbar, Ncarry, , 
retract(nand_gate(Nx,Ny .Ncbar , 
retract (xor_gate(Nx ,Ny , Naum , 

find_anomaly_list(half_adder_cc(Nx,Ny, Naum, Ncarry, XO.YO, 1) , [Ncbar] ) , 
assert (half _adder_cc(Nx,Ny ,Nsum, Ncarry , XO.YO, 1)) , 
fail . 

half _adder_cc . 

We  will  use  the  and_gate/0  and  half-adder_cc/0  rules  to  perform  extraction  on  the  following 
components. 

nand_gate(na, nb, ncbar , 1,1,1). 
xor_gate(na,nb,nsum, 10, 1,1). 
in v (ncbar .ncarry , 1 ,10,1). 

If  the  half_addorjcc/0  extraction  rule  is  used  before  the  and.gate/0  extraction  rule,  the  following 
will  result 

half _adder_cc(na,nb, nsum, ncarry ,10,1,1). 
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However,  if  the  and_gate/0  extraction  rule  is  used  before  the  half_adder.cc/0  extraction  rule, 
the  following  will  result. 

xor_gate(na,nb,nsum, 10, 1 , 1) . 
and_gate(na,nb,ncarry , 1 ,1,1). 

There  are  three  methods  for  solving  this  problem.  The  first  method  involves  ordering  the 
rules  such  that  the  halfladder _cc/0  extraction  rule  is  called  before  the  and_gate/0  extraction 
rule.  This  prevents  the  and_gate/0  extraction  rule  from  interfering  with  proper  extraction  of  the 
half  .adder  _cc/0  extraction  rule.  The  next  two  methods  are  interrelated. 

If  higher-level  structural  VHDL  descriptions  are  not  making  use  of  the  fact  that  an  and  .gate 
VHDL  description  exists,  then  eliminate  the  and_gate  VHDL  description.  However,  if  it  is  necessary 
to  have  an  and.gate  VHDL  description,  ensure  that  all  higher-level  structural  VllDL  descriptions 
take  advantage  of  the  and_gate  VHDL  description.  This  type  of  reasoning  may  require  the  designer 
to  make  more  prudent  use  of  VHDL-based  models.  However,  the  designer  may  employ  another 
method  of  enriching  the  extraction  rule  set  by  simply  adding  an  additional  VHDL  description  for 
half  adders  using  AND  and  Exclusive- OR  gates. 

The  previously  described  problem  is  not  the  only  case  where  hierarchical  extraction  may 
require  some  manual  intervention.  Some  extraction  rules  might  force  extractions  over  component 
boundaries.  An  example  of  how  this  might  occur  follows. 

The  previously  defined  extraction  rules,  and_gate/0  and  half_adder_cc/0,  will  be  used. 
Assume  a  new  extraction  rule  for  haHLadder/0. 

half .adder 

half _adder_cc (Nx , Ny ,Nsum .Hcbar , X0 ,Y0 , _) , 
inv(Ncbar, Ncout, XI ,Y1 ,_) , 
unique. component! [[XI ,Y1] , CX0.Y0]]) , 
not_connected( [Ncbar] , [Nx , Ny , Nsum , Ncout] ) , 
r etract ( inv ( Ncbar , Ncout , 
retract (half _adder.ee (Nx ,Ny , Nsum , Ncbar 

f ind.anomaly.list (half .adder (Nx.Ny, Nsum, Ncout ,X0,Y0, 1) , [Ncbar] ) , 

assert (half .adder (Nx, Ny, Nsum, Ncout, XO, Y0, 1)) , 

fail. 

half .adder . 

The  component  list  from  earlier  in  the  section  will  be  used.  For  clarity,  the  same  netlist.  is  shown 
below. 

nand_gat e(na,nb, ncbar, 1 , 1,1). 
xor .gate (na.nb, nsum, 10,1 , 1) . 
inv (ncbar , ncarry ,1,10,1). 

If  the  extraction  is  performed  in  the  order  and.gate/0,  half-adder _cc/0,  and  half_adder/0,  the 
result  will  be  the  following. 

x or .gate (na.nb, nsum, 10, 1,1). 
and_gate(na,nb, ncarry , 1 ,1,1). 
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The  1.1 1 roc  methods  presented  earlier  are  also  useful  in  solving  this  problem. 

There  is  one  type  of  extraction  problem  that  requires  greater  consideration.  Assume  we  define 
a  four-input  AND  gate  as  shown  in  Figure  1.  Using  the  new  extraction  rule  for  a  four-input  AND 
gate,  we  will  extract  the  circuit  shown  in  Figure  2.  Once  the  extraction  process  has  completed,  two 
different  interpretations  may  result.  In  one  case,  the  extraction  process  might  yield  two  four-input 
AND  gates  and  one  two-input  AND  gate.  In  the  second  case,  the  extraction  process  might  yield 
one  four-input  AND  gate  and  four  two-input  AND  gates.  Currently,  the  method  for  solving  this 
problem  is  to  exclude  VHDL  descriptions  for  models  that  contain  homogeneous  structure. 


Figure  2.  Simple  Circuit. 
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VI.  Conclusions 


Several  items  were  discussed  in  this  report.  A  method  for  generating  Prolog  extraction  rules 
for  GES  was  provided.  Modifications  to  the  general  GES  extraction  rule  were  also  presented. 
Limitations  regarding  unguided  hierarchical  extraction  were  examined.  Methods  for  overcoming 
the  limitations  were  offered. 

Further  work  is  under  way  to  automate  recognition  and  correction  of  the  limitations  to  un¬ 
guided  hierarchical  extraction.  Other  additions  to  the  GES  environment  are  also  progressing. 
Future  additions  include  determining  propagation  delays  for  gate-level  components  from  magic  [4] 
layout  descriptions,  “pin-to-pin”  delay  analysis  (to  include  finding  critical  paths  in  magic  layout 
descriptions),  highlighting  critical  paths  in  magic ,  back  annotation  of  VHDL  models  with  critical 
paths,  and  an  expert  system  extension  for  generating  VHDL  models  of  undocumented  components. 
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